home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / mkeys.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  1.0 KB  |  46 lines
  1. Declare Function GetKeyState Lib "User" (ByVal nVirtKey As Integer) As Integer
  2. Declare Function GetAsyncKeyState Lib "User" (ByVal vKey As Integer) As Integer
  3. Declare Sub GetKeyboardState Lib "User" (LpKeyState As Any)
  4. Declare Sub SetKeyboardState Lib "User" (LpKeyState As Any)
  5.  
  6. Dim Keys As KeysType
  7.  
  8. ' KeyCodes for Toggled keys
  9. Const KEY_CAPITAL = &H14
  10. Const KEY_INSERT = &H2D
  11. Const KEY_NUMLOCK = &H90
  12. Const KEY_SCROLL = &H91
  13.  
  14. Function CapsLocked ()
  15.   If GetKeyState(KEY_CAPITAL) And 1 Then
  16.     CapsLocked = True
  17.   Else
  18.     CapsLocked = False
  19.   End If
  20. End Function
  21.  
  22. Function InsertMode ()
  23.   If GetKeyState(KEY_INSERT) And 1 Then
  24.     InsertMode = False
  25.   Else
  26.     InsertMode = True
  27.   End If
  28. End Function
  29.  
  30. Function NumLocked ()
  31.   If GetKeyState(KEY_NUMLOCK) And 1 Then
  32.     NumLocked = True
  33.   Else
  34.     NumLocked = False
  35.   End If
  36. End Function
  37.  
  38. Function ScrollLocked ()
  39.   If GetKeyState(KEY_SCROLL) And 1 Then
  40.     ScrollLocked = True
  41.   Else
  42.     ScrollLocked = False
  43.   End If
  44. End Function
  45.  
  46.